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CITY  I  Disk  Generation 


CITY  I  simulation  model  is  stored  on  one  2315  disk  cartridge  that  may 
be  copied  directly  to  another  2315  disk  cartridge  when  two  disk  drives  are  avail- 
able on  the  IBM  1130  Disk  Operating  System.  The  reproduction  of  a  new  disk 
copy  consists  of  three  steps  which  are  performed  by  the  same  stand-along 
utility  program  called,  "Disk  Cartridge  Utilization  Program,"  (DCIP)  . 

DCIP  prepares  a  new  disk  for  use  or  provides  a  new  ID  to  an  old 
disk  by  initialization.  With  DCIP  loaded,  a  request  for  SWO  TO  INTLZ  would 
allow  the  operator  to  turn  on  switch  zero  to  initialize  the  new  disk.  For  more 
details  of  this  process  ,  the  reader  is  referred  to  the  IBM  1130  Disk  Monitor 
System,  Version  Z,  Programmers  and  Operators  Guide,  pp.  9-10  to  9-19. 
Note  that  the  disk  ID  is  a  four  digit  hexedecimal  number  between  0001  and 
7FFF. 

To  copy  the  disk  DCIP  ,  a  request  for  SWl  TO  COPY  would  enable  the 
copying  to  begin  if  the  request  is  satisfied.   More  details  are  found  on  pp.  9-20 
to  9-27  of  the  IBM  Manual  described  above.   Should  the  1130  systems  contain  more 
than  two  disk  drives ,  be  sure  that  no  other  system  cartridges  are  enabled  during 
the  copying  process.  If  the  1130  system  were  to  have  both  its  current  Monitor 
System  programs  and  the  CITY  I  system  programs  available  simultaneously,  the 
current  Monitor  System,  i.e.  ,  Ver.  2,  Mod  11,  would  attempt  to  update  the  old 
system  programs  which  are  contained  in  the  CITY  I  system .  During  any  use  of 
the  CITY  I  cartridge,  insure  that  all  other  Monitor  System  Disks  are  turned  off. 

The  DCIP  compare  procedure  documented  on  pp.  9-40  and  9-41  of 
the  IBM  Manual  is  used  to  compare  the  source  cartridge  with  the  object  cartridge. 
In  addition,  the  Dish  Utility  Program,  DUP ,  provides  the  DUMPCET  option.  This 
option  provides  a  look  at  the  Location  Equivalence  Tables  of  both  disk  cartridges. 

The  reader  is  referred  to  the  CITY  I  Computer  Operator's  Manual  for 
details  on  the  CITY  I  System . 
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CITY  IV  Tape  Generation 

The  CITY  IV  simulation  model  is  totally  contained  on  one  2400 
magnetic  tape  that  must  be  copied  on  a  2316  Disk  Cartridge  for  use  on  the  IBM 
360  Operating  System.   Even  the  making  of  multiple  tape  copies  can  only  be 
accomplished  from  the  copy  that  is  stored  on  the  disk. 

The  production  of  a  new  tape  copy  consists  of  the  following  three 
steps  using  the  IBM  360  O.S. 

a)  The  Labeling  Process 

b)  The  Copying  Process 

c)  The  Testing  Process 

The  360  O.S.  Support  Utility  Program  is  involved  in  each  of  the  processes, 
which  can  be  compiled  as  steps  in  the  same  job  or  as  separate  jobs. 

The  Labeling  program  utilizes  the  utility  program  named,  lEHINITT . 
The  JCL  listing  in  Figure  1  is  all  that  is  required  for  this  step.   This  sequence 
is  used  each  time  one  or  more  tapes  are  to  be  labelled.   The  only  change  is  the 
last  card  or  label  control  card.   The  label  control  card,  "LABEL  INITT 

SER  =  CTY401  "  ,  is  changed  to  reflect  the  new  label.  In  other  words, 

change  CTY401  to  CTY403  or  any  other  six  digit  number  preferably  in  this 
sequence.   CTY401  is  symbolic  of  the  first  tape  copy  of  the  CITY  IV  program. 
The  only  other  change  is  with,  "OWNER='GUILAND"' .  The  program  I.D.  is 
truncated  to  a  maximum  of  10  characters  including  blanks  within  apostrophies . 
Thus,  'GUILAND'  could  be  changed  to  'P.  SMITH'.  A  separate  label  control 
card  is  needed  for  each  tape  to  be  labelled. 

lEHDASDR  is  used  to  dump  the  disk  files  to  the  standard  labelled 
tape  created  above.   The  assumption  is  that  the  CITY  IV  disk  labelled  D00160 
is  available  to  O.S.  360.  A  description  of  the  CITY  IV  installation  is  provided 
in  the  operators  manual  and  a  JCL  listing  of  INSTAL  describes  the  process  of 
restoring  a  dish  from  the  original  tape.  The  tape  cannot  be  made  by  a  tape  to 
tape  copying  process.   The  JCL  listing  of  figure  2  describes  the  required 
process.  The  only  changes  would  be  the  references  to  the  tape.  CTY401 
must  be  changed  to  a  new  tape  serial  number.  These  changes  are  in  the 
message  to  the  operator: 

MOUNT  TAPE  NTIS  CTY401  TO 
MOUNT  TAPE  NTIS  CTY403 

also  '  - 

VOLUME  =  (PRIVATE,  ,  SER  =  (CTY401))  ,  etc.  is  changed  to 

VOLUME  =  (PRIVATE,  ,  SER  =  (CTY403))  ,  etc. 
A  repetition  of  this  process  is  necessary  for  the  production  of  each  new  tape  copy. 
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The  final  step ,  testing  of  the  tape  copy ,  is  not  absolutely  necessary 
but  highly  recommended.  lEHLIST  is  the  utility  program  used  to  dump  the 
volume  table  of  content  of  a  disk .  Therefore ,  we  must  first  use  INSTAL  to 
restore  a  new  scratch  disk  with  the  new  tape  copy.  Refer  to  the  Operator's 
Manual  for  the  details  of  INSTAL .  The  JCL  listing  of  figure  3  describes 
the  use  of  lEHLIST  to  obtain  the  UTOC  necessary.  With  this  new  UTOC  ,  it  would 
be  relatively  easy  to  compare  it  to  the  original  UTOC  of  the  CITY  IV  system 
as  described  in  the  Operator's  Manual. 

In  most  cases ,  if  the  copying  process  with  lEHDASDR  indicated  that: 

DUMP  TO  TAPE  IS  COMPLETE 

HIGHEST  RETURN  CODE  ENCOUNTERED  WAS  00 

there  would  be  no  need  for  more  extensive  testing . 

The  reader  is  referred  to  the  CITY  IV  Computer  Operator's  Manual 
for  more  details  concerning  the  CITY  IV  programs  and  JCL  commands. 
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//* 
//* 
//» 

//LABFL2 

//sysprint 
//Label 

//SYSIN 

labfl 
/» 
//•» 
//* 
//* 
//* 
//* 
//* 
//* 
//» 
//* 
//» 
/ 

//» 

/*MFSSAGF 

//* 

//* 

/*mfssagf 
//* 

//STFPl 
//SYSPRINT 
//ThFDISK 
// 

//TaPf 

// 

//SYSIN 


THE  FIRST  STEP  LABEL2  LABELS  THE 
NUMBERS  PROVIDED, 


TAPES   WITH   THE  SERIAL 


EXEC  PGM=IEHTNITT 

DD  SYSOUT=A 

DD  DCB=DFN  =  2  ,UN  I  T 

DD  * 

tNjtt  SFR=rTY^o2 , Owner 


) 2400  ♦  1 .DEFER* 

•gujLaNd' ♦NumbtaPf=i 


NAME 

RBMTAPE 

FUNCT I  ON 

rrmtape 

OF  YOUR 


DUMPS  The 

CHOICE  ON 


TAPENUM=CTYNUM, 


DISK  SPECIFIED  BY  D I SKNUM= nOO 1 60  TO  a 
A   9   TRACK   800BPI    DRIVE,    AND  SPECIFIED 


TAPE 
BY 


The  nfxt  card  defines  the  disk  to  the 
mount  disk  d00160 

THE  DISK  D00160    IS   THE   CTTy   SYSTEM  DISK. 

The  NEXT   CARD   DEFINES   THE   TaPE   TO   THE  OPfRaTOR. 

MOUNT   TAPE  NTlSCTY^Ol 

THE   TAPE    IS   THE   TAPE  OF   YOuR  CHOICE. 

FXEC  pgm=iehdasdr 

DD  SYS0UT=A 

DD  UNlT=2314,DlSP=OLD, 

VOLUMe=)PRiVATE. .SER=D00160* 
DD     UNiT= ,2400*,DISP=OLd,DSNaMe=TaPe, 

)PRIVATF. ,SFR= )CTY401**,DCB= )DFN=2* 


OPERATOR. 


VOLUMF: 

DD  * 


/* 


DUMP  fromdd=thedisk,todd=tapf 


FIGURE  1 


JHB    (7  800,ENG1 ,50,18)      GUI  LAND 


•  ,MSGLFV?L=l,Cl  ASS-^E 


JOB  130 


DISK  SPECIFIFO  BY  D I  SKfMUM=  (>00l60  TO  A  TAPE 
A..  g_  TRACK  800BPI   DRIVE,   AMD  SPECIFIED  BY 


/ /PRMTA  PF 
*** 

RBM-SYSTFM   JCl.   (  IRRARY 

*** 

***  NAME 

«««  RgMXAPP 

***  FUNCTION 

***  PRMTAPE    DUMPS  THE 

***  Of  muR  LuaicE^-uu 

***  TAPENUM=CTYNUM. 
*** 

***  THE  NEXT   CARD   DEFINES    THE   DISK   TO   thF  OPEPATOP. 

***MESSAGF   MOUNT   DISK  D00160 

XJrF  DISK- DOniftXL  IS   THEXITY   SYSTEM  DISK. 
THE   NFXT  CARD   DEFINES   THE   TAPE   TO  THF  OPERATOR. 
MOUNT   TAPF  NTISCTYAOl 

TH£   TAPE   IS   THE  TAPE  OF  YOUR  CHOICE. 
FXFC  PGM=IEHDASDR 
DD  SYSOUT=A 

Oa  ..JJMII_=Z31,4,DJ  SP  =  QLQ,  X 

VOLUME=(PR IVATF, ,SER=000160) 
DD     UNIT=(2400) ,DISP=OLD, DSNAME=TAPE,  X 
VDLUME= (PRIVATE, , S ER= ( C TY40 1 ) ) ,DCB=(DEN=2) 

CD  * 

STEPl 
SYSPR INT 
THEDI SK 
TAPE 
SYSIN 

P00015g7  DELETED 


*** 

♦♦♦MESSAGE 
♦♦« 

//bTEPl 
//SYSPPINT 
.^THED1SJ< 
If 

//TAP? 

U 

//SYSIN 
I EF236I 
I FFP37I 
I FF237I 
TFF237I 

I EF285I 
I  FF?fl5  T 
T  FF?85_I 
IFF285T 
IFF285T 
-TFF285I 
T  EF285  I 
TFF285T 
TFF280F 
IEF373I 
I EF37AT 
ZXSTEP2 
//SYSPP  T  NT 
//THFDT  SK 
l± 

//TAPE 
// 

iXSYSIM 
// 

IEF236I 
-I  FF237I 

I  FF237I 

IEF237I 

I ££237  I 

IEF28'5I 

I FF285I 
■  T  FF285I 

I  FF285I 

I EF285I 
-I£f2a5I 


ALLOC 
QE2 
133 
?81 
QC2 


FOR  PPMTAPE 
ALL  OCA  LED  TD 
ALLOCATED  TO 
ALLOCATED  TO 
ALLOCATED  TD 
SYS7  3016.  T2  05  719.PF000.RBMTAPE. 
VOL    SEP  NOS= 

SYS73Q16.T2  05  719.RFQ00 .RBMTAPe.R00015  98  KEPT 
VOL   SEP   N05=  D00160. 

TAPE  KEPT 
VOL   SER  NQS=  CTY401. 

SYS7  3016.T205  719.P  FQOO . R BM T AP E . P 000 1 599  DELETED 
VOL   SFR  NOS= 
K  28L,CTY4Ql,RBMTAPEf STEPI 
STEP   /STEPl       /   START  74017.1826 

STEP    /STEPl        /  STOP     74017.1838  CPU       OMIN  48.84SEC  MAIN     64K  LCS 
EXEC  PGM=IEHDASDR 
DD  SYSOUT=A 

DD     UNIT=2314,DI SP=nLD,  X 

VDLU-M£=  {  PR  I  V AT  E ,  ,  S  E R  =  DO 0 1 60  ) 
00     UNIT=( 2400) ,01 SP=OLD,DSNAME=TAPE ,  X 

VOLUMF=(PRIVATE, ,SER=(CTY402) ) , DC B= ( DE N= 2 ) 
DD  * 


OK 


ALLOC 
QE2 
133 
281 
0C3 


FOR  PPMTAPE 
ALLOCATED  TO 
ALLOCATFO  TO 
ALLOCATED  TO 
ALLOCATED  TO 


STEP2 
SYSPP INT 
THEDISK 
TAPE 
SYSIN 

S>S73016. T205  719.PF000 .RBMTAPE.P0001600 

VOL    SEP  NGS= 

SYS73016. T2  05  719.RF000 .RBMTAPE .P 000 1601 

VOL    SFP   N05=  D00160. 

TAPE 

VCL   SER   NOS=  CTY402. 


n£L  FTFD 


KEPT 


KFPT 


I EF?85 I        SYS73016. TP05  719-R  FOOO.RHMTAPP 
I!^F?q5T        VTL    5Fr;    \jns  = 
IFFZnC^   K    ?8  I ,  PRMTAPE  ,  "^TFP  ? 

IC'^ST?!  STEP  /STEP2  /  START  74017.1338 
IEF37AT  STFP  /STFo?  /  sj^P  74017.1349 
IFF37S!  JHR  /ORMTAPP  /  START  74017. 1R26 
IEF376I      JOB    /RBMTAPP    /    STQp  74017.18^9 


POOOl bC2 


DELETED 


CPU  0^'IN  47.10SEC  MAIN 
CPU        PMN  3  5.94SEC 


64K  LCS 


OK 


FIGURE  2 
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01/17/74  SYSTFM    SUPPORT   UTILITIES    IFHD4SDR  ?0.2 


PUMP        F «OMOD=THFDI SK , TODO^TAPc 
ieH806T      DU^P   TH          nnNAME=TAPE  IS  CGMPLETF, 

IEH839I      HIGHEST   PETURN   CODE    ENCOlJNlTEREn  WAS  00 


T 


//RBMVTC       JOB    ( 780C,ENG1, 10, 1 ) , 'GUILAND  • , MSGL E V EL =  1 , C L A S S  =  E  JOB  62 

***MESSAGE  D00160 
//STEP     EXEC  PGM=IEHLIST 
//SYSPRINT      DD  SYSCUT=A 

//DDI     DD  UNIT=23U,V0L=SER=D00160,DISP=0LD 

//SYSIN     DD  * 

// 

IEF236I   ALLOC.   FOR  RBMVTC  STEP 
IEF237I   GEO       ALLOCATED   TC  SYSPRINT 
IEF237I    13A       ALLOCATED  TC  DDI 
IEF237I   CC3       ALLOCATED  TO  SYSIN 

IEF285I        SYS73I63.TlI113I.RF000.RByVTC.R0000167  DELETED 
IEF285I        VOL   SER  NCS= 

IEF285I        SYS73I63.T11113I.RF0C0.RBNVTC.R000C168  KEPT 
IEF285I       VOL   SER   NOS=  DC0160. 

IEF285  I        SYS73163.TI1113I.RF000.RB^'VTC.R000C169  DELETED 
IEF285I        VOL   SER  NCS= 

IEF373I    STEP   /STEP         /   START  73163.1234 

IEF37AI  STEP  /STEP  /  STOP  73163.1238  CPU  OMIN  23.52SEC  MAIN  A6K  LCS  OK 
IEF375I      JOB   /RBMVTC     /   START  73163.1234 

IEF376I      JOB   /RBMVTC     /   STOP     73163.1238  CPU       OMIN  23.52SEC 


FIGURE  3 
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